(url-generic-parse-url): Use with-temp-buffer.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 22fc1ab0a028490ec2e7ce22d2325c7869a6b9c0..27f463b0b97ba64150fd78c8db3be77dbfb11b0c 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-15  Magnus Henoch  <mange@freemail.hu>
+
+       * url-parse.el (url-generic-parse-url): Use with-temp-buffer.
+
 2006-11-15  Shun-ichi GOTO  <gotoh@taiyo.co.jp> (tiny change)
 
        * url-http.el (url-http-wait-for-headers-change-function): Defer

diff --git a/lisp/url/url-parse.el b/lisp/url/url-parse.el
index 2e4fc8a9f2732f28eb7dcab4219ca5de77275361..bda303697fb937c535f6fd6c5c4aba13511287c7 100644 (file)
--- a/lisp/url/url-parse.el
+++ b/lisp/url/url-parse.el
@@ -135,8 +135,7 @@ Format is:
       (url-set-full retval nil)
       retval))
    (t
-    (save-excursion
-      (set-buffer (get-buffer-create " *urlparse*"))
+    (with-temp-buffer
       (set-syntax-table url-parse-syntax-table)
       (let ((save-pos nil)
            (prot nil)